EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


| **F 1LE**1D**L IBINSQTI 


r— 
| 


anapeiied oot 
Cniemnd — 
ae at ae ae ag oe ne a 
te eg a a 


“ee —_—) 
“_— —_— 
a 
mete 
bee 
me 
(ol aeinil nell nedtaedLaeliaaedl ani andt ant aedteetaed 
Ree Re 
fe 
me 
rae 
fa 

ecoo0000G oo 

gooo0c000d oo 
oo oa 
oo oo 
gs og oa 
sos oa oa 
oo aoa 
oa oo 

oecoco00c0CcGcaG 

ecooco0oc00ccG 
nn NNNM 
own MNNM 
nn nn nn 
nw nn own 
an nn nw 
nn nn nn 
nn nn nn 
nan nn nn 

Mnnwm mw 

Mnuwnnm nw 
22222 222222222 
222222222222 22 

22 
za 
22 
Zz 
zz 

22222222222 222 
2222222222 2222 
“oe — 
“—— —) 


22 22 ow nw nw 

nn nw nn 

@ @ao nn nw nw 

= S nw nw nw 

nw nw nw 

oa @ nn nw mae 
NNWM ”“ 

DoADoooSoDoOoSoooD Rann an 

“I “ee — te ee) 

—e —e “es — 

fe eae hee eee ee hae hae hee hae ee hee ae ee ee Oe ed ag Od nd nd Od nd et eg Og 

dd Ot Od Od 1 td as Os Od Og at ee te at at ae nd ag a Oe Oe Og ng 

— “ee —— —— 

——e — ot — ——, 

ated abel 

jee about 

all adl aa 

a4 ad 

aa aa 

lal aa 

aa pea ae | 

Sere era we eee ee ba 

ce ed ed ced ceed) eel cel ee eed) ce ced eed ed eed 

dwtdeletl dahl daluliulalal th ah gihet al lala abedalalal 


——_—_—_—_—_——- 


H f 
LIBSINSQTI - Insert Entry into Queue at Tail, Inter 16-SEP-1984 00:11:46 VAX/VMS Macro v04-00 Page 0 
Table of contents 


- 
= 


(3) 23 DECLARATIONS ‘ 
(3) 7 LIBSINSQTI = Insert Entry into Queue Tail 


rrr a a —_——— - 7 


; 7 
LIBSINSQTI - Insert Entry into Queue at Tail, Inter bb aj tb 4 00:11:4 AX/VMS Macro V04-00 Page 1 
1-002 d 6-SEP- -198¢ 1:08: bii9 UO TBRTL. SREILIBINSOTI MAR: 1 ° dy 
TITLE bgeeiusati - Insert Entry into Queue at Tail inter tocted 
SIDENT /1-002/ ; File: LIBINSQTI.MAR Edit:DGP1002 


ADA ARAAAASAAAASALALSASALELELESESE SES ALES EEE ES EET E EEE EEE EEE SEES Sec ec cea TY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


SOFTWARE IS ait UNDER A LICENSE AND MAY BE USED AND gd ba 
IN ACCORDANCE WITH THE TERMS OF SUCH Tete AND WITH THE 
SION OF THE ABOVE Typhi NOTICE. THIS § SOF Tw ARE OR ANY OTHER 

COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


*® 7 
*® ® 
*® * 
*® 5 
*® & 
:® ® 
:® ® 
band ® 
® we 
*® ® 
:® TRANSFERRED. ‘ 
'® * 
:* * 
*® ® 
'® ® 
*® 5 
** a 
*® * 
*® ® 
*® ® 
® * 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
compohatitn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


COOCOQCoCoQooooooooooooooo 
OOooooooooooooooooooooo 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


OoOoooooooooooooooooCoo°o°oo 


; 
° 
° 
° 
° 
° 
° 
° 
° 
° 
° 
. 
° 
° 
e 
° 
> 
. 
° 
° 
° 
; LARAARARBARAASAASAASALASASALESESSSESE SESE SESE SESE SESE RRR SESE ESSERE ERS E ESS 
: 


. 
o 
. 
. 
~ 
om 
. 
e 
. 
o 
. 
. 
. 
6 
7 
a 
6 
. 
. 
. 
a 
. 
. 
. 
. 
. 
. 
. 
2 
. 
. 
° 
. 
e 
. 
ae 
. 
a 
- 
. 
. 
os 
. 
o 
. 
° 
. 
* 
. 
o 
° 
. 
o 
. 
. 


ABSTRACT: 
One of four procedures which give higher level languages access 
to the interlocked, self-relative queue instructions on the 
VAX=11/780 and all future machines. This library procedure permits 
the high level language user to have access to the INSQTI instruction. 


ENVIRONMENT: User Mode, AST Reentrant 


AUTHOR: R. E. Johnston, CREATION DATE: 03-Dec-79 
MODIFIED BY: 


1-001 - Original. REJ 03-Dec-79 
1-002 - Retry count is off by one. DGP 14-AUG-1981 
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3; FACILITY: General Utility Library 
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11803 DECLARATIONS. ~ SrSEp-19be $1:OBs19 FC TONTE eae ICI SNS ost mars? 2% (3) 
8 : -SBTTL DECLARATIONS : 
; INCLUDE FILES: ; 
00 ; EXTERNAL DECLARATIONS: ; 
it 2 -DSABL GBL ; Bisapie gutenetic generation : 
000 6 -EXTRN SS$_NORMAL ; Normal ry interto penpsertes ; 
44 6 -EXTRN LIBS_SECINTFAI ; Secondary Interlock still ; 
6 ; locked at ter retry-cnt retrys : 
0000 6 -EXTRN LIBS_ONEENTQUE ; Successful Completion but ; 
0000 6 ; only one entry is now ; 
0000 6 ; contained in queue : 
0000 66 ; 3 
0000 67 ; MACROS: 3 
0000 68 ; 3 
0000 6 3 
0000 70 ; 3 
0000 71; EQUATED SYMBOLS: : 
0000000A 0000 73° DEF_RETRY_CNT = 10 ; Default retry count for F 
0000 7 : Secondary Interlock fails ; 
0000 75; 3 
0000 76 ; OWN STORAGE: 3 
0000 “3: 3 
0000 7 3 
0000 79 ; 3 
8008 § ; PSECT DECLARATIONS: : 
000000 -PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT ’ 
0000 8 3 
0000 8 : 
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7 i -SBTTL LIBSINSQTI = Insert Entry into Queue Tail 
: : FUNCTIONAL DESCRIPTION: 


= In 
LIBS T 


One of four procedures which give higher level languages access 

to the pater gcked. self-relative queue instructions on the 

VAX=11/780 and all future machines. This library procedure permits 

the nig? foot language user to have access to the INSQTI instruction. 
With this procedure the user may insert a queue entry at the tail of a 
user specified queue. 


If the pt ok is successfully added to the tail of the queue and the 
Queue contains more than one entry, a successful completion status is 
returned. If the entry is added to the tail of the queue and no other 
entries are in the queue, the execution is successful but a unique 
status value is returned indicating that the queue now contains one 
entry (LIBS_ONEENTQUE). 


These queue instructions are synchronized across all processors 
a the use of a secondary interlock. The user may + oe iy A a 
secondary interlock retry count. (The default retry count is 

If the secondary interlock remains locked through or LISS SE retrys 
a secondary interlock status is returned to the user (LIB$_SECINTFAIS 
and the entry is NOT successfully added to the head of the queue. 


CALLING SEQUENCE: 
ret-status.wic.v = LIBSINSQT] (entry.ml.ra, header.mq.rl, retry-cnt.rlu.r)) 
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INPUT PARAMETERS: 
ENTRY = 4 ; Address of queue entry to be inserted 
HEADER = 8 ; Address of queue header 
RETRY_CNT = 12 ; Address of retry count 

IMPLICIT INPUTS: 


NONE 
| 
| 


00000008 
0000000C 


OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
SS$_NORMAL - Entry added to head of queue, queue contains more 
than one entry. 
LIBS_ONEENTQUE - Successful completion of instruction (INSQTI). 


try added to tail of queue, but queue was empty. 
LIBS_SECINTFAI - Secondary Interlock failed, queue is not modified. 
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00 1ee 3; SIDE EFFECTS: 
$6 148 ; SS$_ROPRAND = reserved operand fault for: 
00 147 ; -) either the entry or the header is at an address 
44 148 ; that is not quad word aligned. 
it 149 ; 2.) address of header equals address of entry. 
Bp 0 150; 
000 151 3-- 
B38 136 
0000 $3 137 -ENTRY LIBSINSQTI , “M< > ; Entry point 
5 OA 00 000 155 MOVL #DEF_RETRY_CNT, RO ; RO = Default = count of 10 
0 6c (91 128 CMPB (AP), #<RETRY_C€NT/4> ; Check for optional retry cnt operand 
06 1F Q008 15 BLSSU 208 ; Branch if default count to be used 
50 oc BC DO Boor 138 208 MOVL @RETRY_CNT(AP), RO ; RO = User specified retry count 
08 BC 04 BC 5D 3 160 INSQTI @ENTRYCAP), Q@HEADER(AP) ; Do the instruction (INSQTI) 
08 1B 001 161 BLEQU§ 30$ ; Branch if Z = 1 (One entry in queue) 
0015 16 : or C = 1 (Secondary Interlock fail) 
50 00000000'8F p00 0015 16 MOVL #SS$_NORMAL, RO ; Normal status - Entry added to tail 
001C 164 ; of queue and more than one entry is 
001C 165 3 now is queue 
04 QO1C 166 RET ; Successful return to user 
001D 167 30$: \ 
08 1F QOO1ID 168 BCS 40$ ; Branch if Secondary Interlock fail 
50 00000000'8F DO OOI1F 169 MOVL #LIBS_ONEENTQUE, RO ; Assume pes one entry now in queue 
0026 170 ; Entry successfully entered into queue 
04 0026 171 RET ; Successful return to user 
0027 176 40$: ’ 
E450 F& 0027 17 SOBGEQ RO, 20$ ; Loop until retry count is exhausted 
50 00000000°8F 0 O0¢A 174 MOVL #LIB$_SECINTFAI, RO ; Retry count is exhauste 
0031 175 : Secondary Interlock fail status 
04 0031 176 RET : Unsuccessful return to user 
0032 177 - END 
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LIBSINSQTI 

Symbol table 

DEF _RETRY_CNT = tet ty 

ENTRY = 4 

| HEADER = BEbboS 8 
LIBSINSQTI 00000000 RG 01 
LIBS_ONEENTQUE eeeeeeee KX 00 
LIBS SECINTFA] seeeeeee YX 00 
RETRY_CNT = 0000000C 
SS$_NORMAL eereeeee = =X 8600 


PSECT name PSECT No. 


Allocation 


The working set Limit was 900 pages - 
1848 bytes (4 pages) of virtua 


177 source Lines were read in Pass J 
0 pages of virtual memory were used to define 


acros. 
Macro library statistics ! 


Macros defined 


Macro Library name 
-$255$DUA28: CSYSLIBIJSTARLET.MLB;2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 


Attributes 


:* eS 00000000 <( 0.) 00 ¢ O.) NOPIC USR 
“LIBSCODE 00000032 ¢ 50.) 01 ¢ 1.) PIC USR 
Gcwemsecceunenenecennnnsed 
H Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 00:00:00.06 00:00:01.69 
Command processing 104 88:60:00" 8 bs By BA 
Pass 1 67 00:00:00.29 00:00:03.07 
Symbol table sort 0 00:00:00.00 00:00:00.01 
Pass 2 47 00:00:00.20 Bo 380 2 Be 30 
Symbol table output $ 00:00:00.01 00:00:00.01 
Psect synopsis output 00:00:00.01 00:00:00.24 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 254 00:00:00.86 00:00:10.08 
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CON ABS LCL 
CON REL LCL 


memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 8 non-local and 3 local symbols. 

i prodyc tng 11 object records in Pass 2 
m 
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NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SHR = EXE 


RD NOWRT NOVEC LONG 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBINSQTI/OBJ=OBJ$:LIBINSQTI MSRC$:LIBINSQTI/UPDATE=(ENHS$:LIBINSQTI) 
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